home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
enigma
/
earcd
/
varie
/
pl_pix.lha
/
Install-Plan_pix
next >
Wrap
Text File
|
1996-11-06
|
2KB
|
106 lines
(set source-lha "Tools/LhA")
(set run-lhapatterns "Tools/LhaPatterns")
(set run-lha "RAM:LhA -a")
(set pix "Plan_pix.lha")
;
;---------------------------------------------------------------------
;
; Installer-Script for Planetarium pictures
;
; strings
(set #install-hd-msg
(cat " "
" Wo sollen die Bilder installiert werden? "
" "
" Where do you want to place the pictures? "
" "
" Ou voulez vous installer les tableau? "
))
(set #install-hd-help
(cat "\nHier entscheiden Sie, in welches Verzeichnis die "
"Bilder für den Teleskopmodus kopiert werden sollen.\n\n"
"Empfehlenswert ist auf der Festplatte das Verzeichnis "
"Planetarium/tele oder eine Diskette mit Namen 'Tele:'"
))
(set #epack_pix1
(cat " "
" Entpacken der Bilder... "
" Decrunching main pics... "
))
;
; Procedures
;
(procedure do_hd
(set default-dest
(askdir
(prompt #install-hd-msg)
(help #install-hd-help)
(default @default-dest)
)
)
; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
; Probleme).
;--------------------------------------------------------------------------
(set dst-dir default-dest)
(if
(and
(> (strlen dst-dir) 0
)
(and
(<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":"
)
(<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"
)
)
)
(set dst-dir (cat dst-dir "/")))
;--------------------------------------------------------------------------
(message #epack_pix1)
(run (cat run-lha " x " pix " " dst-dir))
(complete 100)
)
;
;
; GO!
;
;
(complete 0)
; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
; baut...
(run run-lhapatterns)
; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
; geladen werden muß.
(copyfiles
(source source-lha)
(dest "RAM:")
(nogauge)
)
; Beispiel:
; (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))
(set olduserlevel (user 1) )
(do_hd)
(complete 100)
(delete "ram:lha")